MPEG Toolkit/MPEG Toolkit.iso/win/med-lib/mdctrl.z/MDCTRL.DFM/MDCTRL.txt

Text File | 1995-08-11 | 39.9 KB | 1,716 lines

object Form1: TForm1
  Left = 33
  Top = 6
  BorderStyle = bsSingle
  Caption = 'MediaDynamics Inc. - Media Control Library'
  ClientHeight = 453
  ClientWidth = 632
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 16
  object Bevel1: TBevel
    Left = 8
    Top = 320
    Width = 133
    Height = 21
  end
  object lblFrameNo: TLabel
    Left = 60
    Top = 324
    Width = 77
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Caption = '0'
  end
  object Label1: TLabel
    Left = 12
    Top = 323
    Width = 49
    Height = 16
    Alignment = taRightJustify
    Caption = 'Frame:'
  end
  object Bevel2: TBevel
    Left = 180
    Top = 320
    Width = 133
    Height = 21
  end
  object lblStateValue: TLabel
    Left = 232
    Top = 324
    Width = 77
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Caption = 'Closed'
  end
  object lblState: TLabel
    Left = 184
    Top = 323
    Width = 49
    Height = 16
    Alignment = taRightJustify
    Caption = 'State:'
  end
  object Bevel9: TBevel
    Left = 8
    Top = 296
    Width = 133
    Height = 21
  end
  object lblLengthDisp: TLabel
    Left = 60
    Top = 300
    Width = 77
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Caption = '0'
  end
  object lblLength: TLabel
    Left = 13
    Top = 299
    Width = 48
    Height = 16
    Alignment = taRightJustify
    Caption = 'Length:'
  end
  object cmdOpen: TButton
    Left = 8
    Top = 392
    Width = 73
    Height = 25
    Hint = 'mdOpen'
    Caption = 'Open'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = cmdOpenClick
  end
  object cmdPlay: TButton
    Left = 168
    Top = 392
    Width = 73
    Height = 25
    Hint = 'mdPlay'
    Caption = 'Play'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = cmdPlayClick
  end
  object cmdClose: TButton
    Left = 8
    Top = 424
    Width = 73
    Height = 25
    Hint = 'mdClose'
    Caption = 'Close'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = cmdCloseClick
  end
  object txtFileName: TEdit
    Left = 8
    Top = 344
    Width = 265
    Height = 25
    TabOrder = 3
    Text = 'FileName Here - Use Browse >>>>'
  end
  object cmdExit: TButton
    Left = 552
    Top = 424
    Width = 73
    Height = 25
    Caption = 'Exit'
    TabOrder = 4
    OnClick = cmdExitClick
  end
  object cmdPause: TButton
    Left = 168
    Top = 424
    Width = 73
    Height = 25
    Hint = 'mdPause'
    Caption = 'Pause'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = cmdPauseClick
  end
  object tabControls: TTabbedNotebook
    Left = 344
    Top = 4
    Width = 285
    Height = 381
    Hint = 'Open Graphic File'
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'Main'
      object Label6: TLabel
        Left = 12
        Top = 228
        Width = 141
        Height = 17
        AutoSize = False
        Caption = 'MCISendString'
      end
      object txtFrame: TEdit
        Left = 128
        Top = 24
        Width = 81
        Height = 25
        TabOrder = 0
        Text = '0'
      end
      object cmdGoto: TButton
        Left = 56
        Top = 24
        Width = 65
        Height = 25
        Hint = 'mdGotoFrame'
        Caption = 'Goto'
        TabOrder = 1
        OnClick = cmdGotoClick
      end
      object cmdHide: TButton
        Left = 56
        Top = 64
        Width = 73
        Height = 25
        Hint = 'mdHide'
        Caption = 'Hide'
        TabOrder = 2
        OnClick = cmdHideClick
      end
      object cmdHideVid: TButton
        Left = 56
        Top = 96
        Width = 73
        Height = 25
        Hint = 'mdHideVideo'
        Caption = 'Hide Vid'
        TabOrder = 3
        OnClick = cmdHideVidClick
      end
      object cmdHideCtrl: TButton
        Left = 56
        Top = 128
        Width = 73
        Height = 25
        Hint = 'mdHideCtrl'
        Caption = 'Hide Ctrl'
        TabOrder = 4
        OnClick = cmdHideCtrlClick
      end
      object cmdShow: TButton
        Left = 136
        Top = 64
        Width = 73
        Height = 25
        Hint = 'mdShow'
        Caption = 'Show'
        TabOrder = 5
        OnClick = cmdShowClick
      end
      object cmdShowVid: TButton
        Left = 136
        Top = 96
        Width = 73
        Height = 25
        Hint = 'mdShowVideo'
        Caption = 'Show Vid'
        TabOrder = 6
        OnClick = cmdShowVidClick
      end
      object cmdShowCtrl: TButton
        Left = 136
        Top = 128
        Width = 73
        Height = 25
        Hint = 'mdShowCtrl'
        Caption = 'Show Ctrl'
        TabOrder = 7
        OnClick = cmdShowCtrlClick
      end
      object cmdBottom2: TButton
        Left = 56
        Top = 192
        Width = 73
        Height = 25
        Hint = 'mdSetWinBottom'
        Caption = 'Bottom'
        TabOrder = 8
        OnClick = cmdBottom2Click
      end
      object cmdTop: TButton
        Left = 136
        Top = 192
        Width = 73
        Height = 25
        Hint = 'mdSetWinTop'
        Caption = 'Top'
        TabOrder = 9
        OnClick = cmdTopClick
      end
      object chkShowBtmBtn: TCheckBox
        Left = 88
        Top = 164
        Width = 113
        Height = 17
        Caption = 'Show Button'
        TabOrder = 10
        OnClick = chkShowBtmBtnClick
      end
      object txtSendString: TEdit
        Left = 12
        Top = 248
        Width = 237
        Height = 25
        TabOrder = 11
        OnKeyPress = txtSendStringKeyPress
      end
      object cmdSendString: TButton
        Left = 12
        Top = 280
        Width = 73
        Height = 25
        Hint = 'mdMCISendString'
        Caption = 'Send'
        TabOrder = 12
        OnClick = cmdSendStringClick
      end
      object pnlMCIReturn: TPanel
        Left = 128
        Top = 284
        Width = 117
        Height = 21
        Caption = 'MCIReturn:'
        TabOrder = 13
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'Size/Position'
      object lblVidCtrl: TLabel
        Left = 4
        Top = 36
        Width = 89
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Video/Control'
      end
      object lblVideo: TLabel
        Left = 4
        Top = 64
        Width = 89
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Video'
      end
      object lblCtrlBar: TLabel
        Left = 4
        Top = 92
        Width = 89
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Control Bar'
      end
      object lblX: TLabel
        Left = 116
        Top = 16
        Width = 9
        Height = 16
        Caption = 'X'
      end
      object lblY: TLabel
        Left = 152
        Top = 16
        Width = 10
        Height = 16
        Caption = 'Y'
      end
      object lblW: TLabel
        Left = 204
        Top = 16
        Width = 14
        Height = 16
        Caption = 'W'
      end
      object lblH: TLabel
        Left = 244
        Top = 16
        Width = 10
        Height = 16
        Caption = 'H'
      end
      object Bevel3: TBevel
        Left = 8
        Top = 152
        Width = 61
        Height = 2
      end
      object Bevel4: TBevel
        Left = 72
        Top = 152
        Width = 61
        Height = 2
      end
      object Bevel5: TBevel
        Left = 8
        Top = 135
        Width = 125
        Height = 2
      end
      object Label2: TLabel
        Left = 60
        Top = 119
        Width = 21
        Height = 16
        Caption = 'Set'
      end
      object lblSetPos: TLabel
        Left = 24
        Top = 137
        Width = 31
        Height = 16
        Caption = '(X,Y)'
        Transparent = True
      end
      object lblSetSize: TLabel
        Left = 84
        Top = 137
        Width = 36
        Height = 16
        Caption = '(W,H)'
        Transparent = True
      end
      object Label3: TLabel
        Left = 160
        Top = 137
        Width = 31
        Height = 16
        Caption = '(X,Y)'
        Transparent = True
      end
      object Bevel6: TBevel
        Left = 144
        Top = 152
        Width = 61
        Height = 2
      end
      object Label4: TLabel
        Left = 220
        Top = 137
        Width = 36
        Height = 16
        Caption = '(W,H)'
        Transparent = True
      end
      object Bevel7: TBevel
        Left = 208
        Top = 152
        Width = 61
        Height = 2
      end
      object Bevel8: TBevel
        Left = 144
        Top = 135
        Width = 125
        Height = 2
      end
      object Label5: TLabel
        Left = 196
        Top = 119
        Width = 22
        Height = 16
        Caption = 'Get'
      end
      object txtBX: TEdit
        Left = 104
        Top = 32
        Width = 37
        Height = 22
        Hint = 'AV X Coordinate'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        Text = '10'
      end
      object txtBY: TEdit
        Left = 144
        Top = 32
        Width = 37
        Height = 22
        Hint = 'AV Y Coordinate'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        Text = '10'
      end
      object txtVX: TEdit
        Left = 104
        Top = 60
        Width = 37
        Height = 22
        Hint = 'Video X Coordinate'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        Text = '10'
      end
      object txtVY: TEdit
        Left = 144
        Top = 60
        Width = 37
        Height = 22
        Hint = 'Video Y Coordinate'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        Text = '10'
      end
      object txtCX: TEdit
        Left = 104
        Top = 88
        Width = 37
        Height = 22
        Hint = 'ControlBar X Coordinate'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        Text = '10'
      end
      object txtCY: TEdit
        Left = 144
        Top = 88
        Width = 37
        Height = 22
        Hint = 'ControlBar Y Coordinate'
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        Text = '10'
      end
      object txtBW: TEdit
        Left = 192
        Top = 32
        Width = 37
        Height = 22
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        Text = '10'
      end
      object txtBH: TEdit
        Left = 232
        Top = 32
        Width = 37
        Height = 22
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        Text = '0'
      end
      object txtVH: TEdit
        Left = 232
        Top = 60
        Width = 37
        Height = 22
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        TabOrder = 8
        Text = '0'
      end
      object txtVW: TEdit
        Left = 192
        Top = 60
        Width = 37
        Height = 22
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        TabOrder = 9
        Text = '10'
      end
      object txtCW: TEdit
        Left = 192
        Top = 88
        Width = 37
        Height = 22
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        TabOrder = 10
        Text = '10'
      end
      object txtCH: TEdit
        Left = 232
        Top = 88
        Width = 37
        Height = 22
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        TabOrder = 11
        Text = '0'
      end
      object cmdSetPosVC: TButton
        Left = 8
        Top = 160
        Width = 61
        Height = 25
        Caption = 'Vid/Ctrl'
        TabOrder = 12
        OnClick = cmdSetPosVCClick
      end
      object cmdSetSizeVC: TButton
        Left = 72
        Top = 160
        Width = 61
        Height = 25
        Caption = 'Vid/Ctrl'
        TabOrder = 13
        OnClick = cmdSetSizeVCClick
      end
      object cmdSetPosV: TButton
        Left = 8
        Top = 188
        Width = 61
        Height = 25
        Caption = 'Video'
        TabOrder = 14
        OnClick = cmdSetPosVClick
      end
      object cmdSetSizeV: TButton
        Left = 72
        Top = 188
        Width = 61
        Height = 25
        Caption = 'Video'
        TabOrder = 15
        OnClick = cmdSetSizeVClick
      end
      object cmdSetPosC: TButton
        Left = 8
        Top = 216
        Width = 61
        Height = 25
        Caption = 'Ctrl Bar'
        TabOrder = 16
        OnClick = cmdSetPosCClick
      end
      object cmdSetSizeC: TButton
        Left = 72
        Top = 216
        Width = 61
        Height = 25
        Caption = 'Ctrl Bar'
        TabOrder = 17
        OnClick = cmdSetSizeCClick
      end
      object cmdGetSizeC: TButton
        Left = 208
        Top = 216
        Width = 61
        Height = 25
        Caption = 'Ctrl Bar'
        TabOrder = 18
        OnClick = cmdGetSizeCClick
      end
      object cmdGetPosC: TButton
        Left = 144
        Top = 216
        Width = 61
        Height = 25
        Caption = 'Ctrl Bar'
        TabOrder = 19
        OnClick = cmdGetPosCClick
      end
      object cmdGetPosV: TButton
        Left = 144
        Top = 188
        Width = 61
        Height = 25
        Caption = 'Video'
        TabOrder = 20
        OnClick = cmdGetPosVClick
      end
      object cmdGetSizeV: TButton
        Left = 208
        Top = 188
        Width = 61
        Height = 25
        Caption = 'Video'
        TabOrder = 21
        OnClick = cmdGetSizeVClick
      end
      object cmdGetSizeVC: TButton
        Left = 208
        Top = 160
        Width = 61
        Height = 25
        Caption = 'Vid/Ctrl'
        TabOrder = 22
        OnClick = cmdGetSizeVCClick
      end
      object cmdGetPosVC: TButton
        Left = 144
        Top = 160
        Width = 61
        Height = 25
        Caption = 'Vid/Ctrl'
        TabOrder = 23
        OnClick = cmdGetPosVCClick
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'Get'
      object lblFrameRate: TLabel
        Left = 98
        Top = 20
        Width = 29
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = '?'
      end
      object Bevel11: TBevel
        Left = 96
        Top = 16
        Width = 33
        Height = 25
      end
      object lblPlayedStatus: TLabel
        Left = 234
        Top = 20
        Width = 29
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = '?'
      end
      object Bevel12: TBevel
        Left = 232
        Top = 16
        Width = 33
        Height = 25
      end
      object lblOpenFiles: TLabel
        Left = 98
        Top = 48
        Width = 29
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = '?'
      end
      object Bevel13: TBevel
        Left = 96
        Top = 44
        Width = 33
        Height = 25
      end
      object lblFileType: TLabel
        Left = 234
        Top = 48
        Width = 29
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = '?'
      end
      object Bevel14: TBevel
        Left = 232
        Top = 44
        Width = 33
        Height = 25
      end
      object cmdFrameRate: TButton
        Left = 4
        Top = 16
        Width = 89
        Height = 25
        Caption = 'Frame Rate'
        TabOrder = 0
        OnClick = cmdFrameRateClick
      end
      object cmdPlayedStatus: TButton
        Left = 140
        Top = 16
        Width = 89
        Height = 25
        Caption = 'Played'
        TabOrder = 1
        OnClick = cmdPlayedStatusClick
      end
      object cmdOpenFiles: TButton
        Left = 4
        Top = 44
        Width = 89
        Height = 25
        Caption = 'Open Files'
        TabOrder = 2
        OnClick = cmdOpenFilesClick
      end
      object cmdFileType: TButton
        Left = 140
        Top = 44
        Width = 89
        Height = 25
        Caption = 'File Type'
        TabOrder = 3
        OnClick = cmdFileTypeClick
      end
      object cmdWindowHandle: TButton
        Left = 4
        Top = 108
        Width = 89
        Height = 25
        Caption = 'hWnd'
        TabOrder = 4
        OnClick = cmdWindowHandleClick
      end
      object pnlWindowHandle: TPanel
        Left = 96
        Top = 108
        Width = 65
        Height = 25
        BevelOuter = bvLowered
        Caption = '?'
        TabOrder = 5
        OnClick = pnlWindowHandleClick
      end
      object pnlDeviceID: TPanel
        Left = 96
        Top = 72
        Width = 33
        Height = 25
        BevelOuter = bvLowered
        Caption = '?'
        TabOrder = 6
      end
      object cmdDeviceID: TButton
        Left = 4
        Top = 72
        Width = 89
        Height = 25
        Caption = 'DeviceID'
        TabOrder = 7
        OnClick = cmdDeviceIDClick
      end
      object pnlClipFrame: TPanel
        Left = 96
        Top = 136
        Width = 65
        Height = 25
        BevelOuter = bvLowered
        Caption = '?'
        TabOrder = 8
      end
      object cmdClipFrame: TButton
        Left = 4
        Top = 136
        Width = 89
        Height = 25
        Caption = 'Clip Frame'
        TabOrder = 9
        OnClick = cmdClipFrameClick
      end
      object pnlClipLength: TPanel
        Left = 96
        Top = 164
        Width = 65
        Height = 25
        BevelOuter = bvLowered
        Caption = '?'
        TabOrder = 10
      end
      object cmdClipLength: TButton
        Left = 4
        Top = 164
        Width = 89
        Height = 25
        Caption = 'Clip Length'
        TabOrder = 11
        OnClick = cmdClipLengthClick
      end
      object pnlDisplayState: TPanel
        Left = 232
        Top = 72
        Width = 33
        Height = 25
        Caption = '?'
        TabOrder = 12
      end
      object cmdDisplayState: TButton
        Left = 140
        Top = 72
        Width = 89
        Height = 25
        Caption = 'Disp State'
        TabOrder = 13
        OnClick = cmdDisplayStateClick
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'Set'
      object lblPlaybackSpeed: TLabel
        Left = 36
        Top = 280
        Width = 89
        Height = 16
        AutoSize = False
        Caption = 'Speed:  10'
      end
      object shpColor: TShape
        Left = 132
        Top = 12
        Width = 33
        Height = 53
        Brush.Color = clBlack
        OnMouseDown = shpColorMouseDown
      end
      object lblAreaClicked: TLabel
        Left = 116
        Top = 262
        Width = 29
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = '0'
      end
      object Bevel10: TBevel
        Left = 112
        Top = 256
        Width = 37
        Height = 25
      end
      object lblAudLevel: TLabel
        Left = 188
        Top = 216
        Width = 41
        Height = 33
        Caption = 'Audio Level'
        WordWrap = True
      end
      object sclPlaybackSpeed: TScrollBar
        Left = 12
        Top = 300
        Width = 137
        Height = 17
        LargeChange = 2
        Max = 20
        Position = 10
        TabOrder = 0
        OnChange = sclPlaybackSpeedChange
      end
      object txtRed: TEdit
        Left = 8
        Top = 12
        Width = 37
        Height = 25
        MaxLength = 3
        TabOrder = 1
        Text = '0'
        OnChange = txtRedChange
      end
      object txtGreen: TEdit
        Left = 48
        Top = 12
        Width = 37
        Height = 25
        MaxLength = 3
        TabOrder = 2
        Text = '0'
        OnChange = txtGreenChange
      end
      object txtBlue: TEdit
        Left = 88
        Top = 12
        Width = 37
        Height = 25
        MaxLength = 3
        TabOrder = 3
        Text = '0'
        OnChange = txtBlueChange
      end
      object cmdColor: TButton
        Left = 8
        Top = 40
        Width = 117
        Height = 25
        Hint = 'mdSetKeyColor'
        Caption = 'Set Key Color'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnClick = cmdColorClick
      end
      object chkVideoPalette: TCheckBox
        Left = 20
        Top = 220
        Width = 137
        Height = 17
        Caption = 'Use Video Palette'
        TabOrder = 5
        OnClick = chkVideoPaletteClick
      end
      object txtOffsetX: TEdit
        Left = 176
        Top = 12
        Width = 37
        Height = 25
        ParentShowHint = False
        ShowHint = False
        TabOrder = 6
        Text = '0'
        OnChange = txtOffsetXChange
      end
      object txtOffsetY: TEdit
        Left = 216
        Top = 12
        Width = 37
        Height = 25
        TabOrder = 7
        Text = '0'
        OnChange = txtOffsetYChange
      end
      object cmdSetOffset: TButton
        Left = 176
        Top = 40
        Width = 77
        Height = 25
        Hint = 'mdSetVideoOffset'
        Caption = 'Set Offset'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 8
        OnClick = cmdSetOffsetClick
      end
      object txtFrameBeg: TEdit
        Left = 12
        Top = 140
        Width = 61
        Height = 25
        ParentShowHint = False
        ShowHint = False
        TabOrder = 9
        Text = '0'
        OnChange = txtOffsetXChange
      end
      object txtFrameEnd: TEdit
        Left = 76
        Top = 140
        Width = 61
        Height = 25
        TabOrder = 10
        Text = '0'
        OnChange = txtOffsetYChange
      end
      object cmdSetClip: TButton
        Left = 12
        Top = 168
        Width = 125
        Height = 25
        Caption = 'Set Clip'
        TabOrder = 11
        OnClick = cmdSetClipClick
      end
      object optMoveable: TRadioButton
        Left = 20
        Top = 240
        Width = 89
        Height = 17
        Caption = 'Moveable'
        TabOrder = 12
        OnClick = optMoveableClick
      end
      object optInteractive: TRadioButton
        Left = 20
        Top = 260
        Width = 89
        Height = 17
        Caption = 'Interactive'
        TabOrder = 13
        OnClick = optInteractiveClick
      end
      object spnType: TSpinEdit
        Left = 204
        Top = 72
        Width = 33
        Height = 26
        EditorEnabled = False
        MaxLength = 1
        MaxValue = 5
        MinValue = 0
        TabOrder = 14
        Value = 0
      end
      object cmdSetClipRegion: TButton
        Left = 44
        Top = 102
        Width = 193
        Height = 25
        Caption = 'Set Video Clip Region'
        TabOrder = 15
        OnClick = cmdSetClipRegionClick
      end
      object txtClipX: TEdit
        Left = 44
        Top = 72
        Width = 37
        Height = 26
        TabOrder = 16
        Text = '0'
      end
      object txtClipY: TEdit
        Left = 84
        Top = 72
        Width = 37
        Height = 26
        TabOrder = 17
        Text = '0'
      end
      object txtClipWidth: TEdit
        Left = 124
        Top = 72
        Width = 37
        Height = 26
        TabOrder = 18
        Text = '0'
      end
      object txtClipHeight: TEdit
        Left = 164
        Top = 72
        Width = 37
        Height = 26
        TabOrder = 19
        Text = '0'
      end
      object cmdMute: TButton
        Left = 184
        Top = 252
        Width = 49
        Height = 25
        Caption = 'Mute'
        TabOrder = 20
        OnClick = cmdMuteClick
      end
      object scrAudioLevel: TScrollBar
        Left = 236
        Top = 212
        Width = 17
        Height = 97
        Kind = sbVertical
        TabOrder = 21
        OnChange = scrAudioLevelChange
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'Graphics'
      object Label9: TLabel
        Left = 8
        Top = 8
        Width = 64
        Height = 16
        Caption = 'Filename:'
      end
      object cmdBrowse: TButton
        Left = 92
        Top = 56
        Width = 73
        Height = 25
        Hint = 'Locate Graphic'
        Caption = 'Browse'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = cmdBrowseClick
      end
      object txtGraphicFileName: TEdit
        Left = 8
        Top = 24
        Width = 253
        Height = 25
        TabOrder = 1
      end
      object cmdOpenGraphic: TButton
        Left = 20
        Top = 92
        Width = 105
        Height = 25
        Hint = 'mdOpenGraphic'
        Caption = 'Open Graphic'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = cmdOpenGraphicClick
      end
      object cmdOpenKeep: TButton
        Left = 136
        Top = 92
        Width = 105
        Height = 25
        Hint = 'mdOpenGraphicKeep'
        Caption = 'Open Keep'
        TabOrder = 3
        OnClick = cmdOpenKeepClick
      end
      object chkUsePalette: TCheckBox
        Left = 88
        Top = 128
        Width = 101
        Height = 21
        Hint = 'Utilize Graphic Palette'
        Caption = 'Use Palette'
        ParentShowHint = False
        ShowHint = False
        TabOrder = 4
      end
      object cmdShowGraphic: TButton
        Left = 20
        Top = 160
        Width = 65
        Height = 25
        Hint = 'mdShowGraphic'
        Caption = 'Show'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnClick = cmdShowGraphicClick
      end
      object cmdHideGraphic: TButton
        Left = 100
        Top = 160
        Width = 65
        Height = 25
        Hint = 'mdHideGraphic'
        Caption = 'Hide'
        TabOrder = 6
        OnClick = cmdHideGraphicClick
      end
      object cmdCloseGraphic: TButton
        Left = 180
        Top = 160
        Width = 65
        Height = 25
        Hint = 'mdCloseGraphic'
        Caption = 'Close'
        TabOrder = 7
        OnClick = cmdCloseGraphicClick
      end
      object txtGrXPos: TEdit
        Left = 32
        Top = 204
        Width = 45
        Height = 25
        Hint = 'X Position'
        TabOrder = 8
        Text = '0'
      end
      object txtGrYPos: TEdit
        Left = 84
        Top = 204
        Width = 45
        Height = 25
        Hint = 'Y Position'
        TabOrder = 9
        Text = '0'
      end
      object txtGrWidth: TEdit
        Left = 136
        Top = 204
        Width = 45
        Height = 25
        Hint = 'Display Width'
        TabOrder = 10
        Text = '0'
      end
      object txtGrHeight: TEdit
        Left = 188
        Top = 204
        Width = 45
        Height = 25
        Hint = 'Display Height'
        TabOrder = 11
        Text = '0'
      end
      object cmdShowGraphicPos: TButton
        Left = 80
        Top = 236
        Width = 105
        Height = 25
        Hint = 'mdShowGraphicPos'
        Caption = 'Show Pos'
        TabOrder = 12
        OnClick = cmdShowGraphicPosClick
      end
      object txtDispXPos: TEdit
        Left = 84
        Top = 268
        Width = 45
        Height = 25
        Hint = 'X Position'
        TabOrder = 13
        Text = '0'
      end
      object txtDispYPos: TEdit
        Left = 136
        Top = 268
        Width = 45
        Height = 25
        Hint = 'Y Position'
        TabOrder = 14
        Text = '0'
      end
      object cmdDisplayGraphic: TButton
        Left = 80
        Top = 300
        Width = 105
        Height = 25
        Hint = 'mdDisplayGraphic'
        Caption = 'Display'
        TabOrder = 15
        OnClick = cmdDisplayGraphicClick
      end
      object Button1: TButton
        Left = 12
        Top = 56
        Width = 65
        Height = 29
        Caption = 'Button1'
        TabOrder = 16
        Visible = False
        OnClick = Button1Click
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'Cursor'
      object Label7: TLabel
        Left = 84
        Top = 84
        Width = 29
        Height = 16
        Caption = 'Set'
      end
      object Label8: TLabel
        Left = 156
        Top = 84
        Width = 38
        Height = 16
        Caption = 'Reset'
      end
      object pnlCursor: TPanel
        Left = 112
        Top = 32
        Width = 36
        Height = 34
        BevelOuter = bvNone
        BorderStyle = bsSingle
        TabOrder = 0
        object imgCursor: TImage
          Left = 0
          Top = 0
          Width = 36
          Height = 374
          AutoSize = True
          Picture.Data = {<image000.bmp>}
        end
      end
      object SpinButton1: TSpinButton
        Left = 148
        Top = 32
        Width = 17
        Height = 33
        DownGlyph.Data = {
          7E040000424D7E04000000000000360400002800000009000000060000000100
          0800000000004800000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000C0DCC000F0C8
          A400000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
          0303030000000303030300030303030000000303030000000303030000000303
          0000000000030300000003000000000000000300000003030303030303030300
          0000}
        TabOrder = 1
        UpGlyph.Data = {
          7E040000424D7E04000000000000360400002800000009000000060000000100
          0800000000004800000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000C0DCC000F0C8
          A400000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
          0303030000000300000000000000030000000303000000000003030000000303
          0300000003030300000003030303000303030300000003030303030303030300
          0000}
        OnDownClick = SpinButton1DownClick
        OnUpClick = SpinButton1UpClick
      end
      object cmdCursorSetVC: TButton
        Left = 60
        Top = 104
        Width = 73
        Height = 25
        Caption = 'Vid/Ctrl'
        TabOrder = 2
        OnClick = cmdCursorSetVCClick
      end
      object cmdCursorResetVC: TButton
        Left = 140
        Top = 104
        Width = 73
        Height = 25
        Caption = 'Vid/Ctrl'
        TabOrder = 3
        OnClick = cmdCursorResetVCClick
      end
      object cmdCursorSetV: TButton
        Left = 60
        Top = 132
        Width = 73
        Height = 25
        Caption = 'Video'
        TabOrder = 4
        OnClick = cmdCursorSetVClick
      end
      object cmdCursorResetV: TButton
        Left = 140
        Top = 132
        Width = 73
        Height = 25
        Caption = 'Video'
        TabOrder = 5
        OnClick = cmdCursorResetVClick
      end
      object cmdCursorSetC: TButton
        Left = 60
        Top = 160
        Width = 73
        Height = 25
        Caption = 'Control'
        TabOrder = 6
        OnClick = cmdCursorSetCClick
      end
      object cmdCursorResetC: TButton
        Left = 140
        Top = 160
        Width = 73
        Height = 25
        Caption = 'Control'
        TabOrder = 7
        OnClick = cmdCursorResetCClick
      end
    end
  end
  object cmdLite: TButton
    Left = 88
    Top = 392
    Width = 73
    Height = 25
    Hint = 'mdOpenLite'
    Caption = 'OpenLite'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    OnClick = cmdLiteClick
  end
  object cmdCloseAll: TButton
    Left = 88
    Top = 424
    Width = 73
    Height = 25
    Hint = 'mdClose'
    Caption = 'CloseAll'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnClick = cmdCloseAllClick
  end
  object cmdStep: TButton
    Left = 248
    Top = 392
    Width = 65
    Height = 25
    Hint = 'mdStep'
    Caption = 'Step'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    OnClick = cmdStepClick
  end
  object cmdStop: TButton
    Left = 248
    Top = 424
    Width = 65
    Height = 25
    Hint = 'mdStop'
    Caption = 'Stop'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 10
    OnClick = cmdStopClick
  end
  object cmdRewind: TButton
    Left = 320
    Top = 392
    Width = 65
    Height = 25
    Hint = 'mdRewind'
    Caption = 'Rewind'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    OnClick = cmdRewindClick
  end
  object cmdRestart: TButton
    Left = 320
    Top = 424
    Width = 65
    Height = 25
    Hint = 'mdRestart'
    Caption = 'Restart'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 12
    OnClick = cmdRestartClick
  end
  object cmdBottom: TButton
    Left = 128
    Top = 124
    Width = 137
    Height = 33
    Hint = 'mdSetWinBottom'
    Caption = 'Send To Bottom'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 13
    Visible = False
    OnClick = cmdBottomClick
  end
  object optModal: TRadioButton
    Left = 8
    Top = 372
    Width = 69
    Height = 17
    Caption = 'Modal'
    TabOrder = 14
    OnClick = optModalClick
  end
  object optNonModal: TRadioButton
    Left = 84
    Top = 372
    Width = 93
    Height = 17
    Caption = 'W/Control'
    Checked = True
    TabOrder = 15
    TabStop = True
    OnClick = optNonModalClick
  end
  object optNoControl: TRadioButton
    Left = 184
    Top = 372
    Width = 129
    Height = 17
    Caption = 'W/Out Control'
    TabOrder = 16
    OnClick = optNoControlClick
  end
  object cmdBrowseVideo: TButton
    Left = 276
    Top = 344
    Width = 65
    Height = 25
    Caption = 'Browse'
    TabOrder = 17
    OnClick = cmdBrowseVideoClick
  end
  object cmdEject: TButton
    Left = 552
    Top = 392
    Width = 73
    Height = 25
    Caption = 'Eject'
    TabOrder = 18
    OnClick = cmdEjectClick
  end
  object cmdUnloadLib: TButton
    Left = 392
    Top = 392
    Width = 81
    Height = 25
    Caption = 'Unload Lib'
    TabOrder = 19
    OnClick = cmdUnloadLibClick
  end
  object cmdLoadLib: TButton
    Left = 392
    Top = 424
    Width = 81
    Height = 25
    Caption = 'Load Lib'
    TabOrder = 20
    OnClick = cmdLoadLibClick
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
  end
  object clrDialog: TColorDialog
    Ctl3D = True
    Options = [cdFullOpen]
    Left = 28
  end
  object popHWND: TPopupMenu
    Alignment = paCenter
    Left = 56
    object mnuHandle: TMenuItem
      Caption = 'adfgadg'
    end
  end
  object dlgOpen: TOpenDialog
    DefaultExt = 'bmp'
    Filter = 'Bitmaps|*.bmp;*.dib'
    Options = [ofPathMustExist, ofFileMustExist]
    Left = 84
  end
  object dlgVideo: TOpenDialog
    DefaultExt = 'avi'
    Filter =
      'VfW/Indeo|*.avi|MPEG|*.mpg|DVI (PLV/RTV)|*.avs|Quicktime for Win' +
      'dows|*.mov|Wave Audio|*.wav'
    Left = 112
  end
end